# progresso.R

iniciaProgresso <- function(passos)
{
	pPasso <<- 0
	pPassos <<- passos
	pTime <<- unclass(Sys.time())
}

progresso <- function()
{
	falta <- pPassos - pPasso
	pPasso <<- pPasso+1
	deltat <- unclass(Sys.time()) - pTime
	t <- (deltat/pPasso)*falta
	if(t/60 >= 2)
		print(paste("falta:", round(t/60), "m"))
	else
		print(paste("falta:", round(t), "s"))
}

